home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_01_04 / 1n04040b < prev    next >
Text File  |  1990-07-23  |  201b  |  16 lines
  1.  
  2.  
  3. if not (c in ['0' .. '9']) do
  4.     begin
  5.     code := i;
  6.     exit;
  7.     end;
  8. n := ord(c) - ord('0');
  9. c := next;
  10. while c in ['0' .. '9'] do
  11.     begin
  12.     n := 10 * n + ord(c) - ord('0');
  13.     c := next;
  14.     end;
  15.  
  16.